#a,b,c都是向量
a <- c(1,2,3,4,5,6)
b <- c("one", "two", "three")
c <- c(TRUE, FALSE, TRUE, FALSE)

a[c(2,4)] #打印第2和第4个数据，R语言的下标是从1开始的
a[3] #打印第3个数据
a[2:4] #打印第2到4个数据

#矩阵*********************************************
mymatrix <- matrix(data=a, 2, 3)
mymatrix #打印整个矩阵
mymatrix[2,2] #打印矩阵第2行2列的数据

#数组*********************************************
myarray <- array(data = a, 3)
myarray
myarray[3] #打印第3个数据

#创建病人数据的数据框*********************************************
patientID <- c(1,2,3,4)
age <- c(25,34,28,52)
diabetes <- c("Type1", "Type2", "Type3", "Type4")
status <- c("Poor", "Improved", "Excellent", "Poor")
patientdata <- data.frame(patientID, age, diabetes, status)

patientdata
patientdata[1:2] #打印第1列和第2列的数据
patientdata[c("diabetes", "status")] #打印指定列的数据
patientdata$age #打印age列的数据
patientdata$patientID

#因子
diabetes <-factor(diabetes)
diabetes

summary(status) #summary看向量里的结构
status <- factor(status, order=TRUE)
status

#把指定列的数据改变
patientdata$diabetes <- factor(patientdata$diabetes,
                              levels = c("Type1", "Type2", "Type3", "Type4"),
                              labels = c(1,2,3,4))
patientdata

#mtcars是R自带的一个数据框*********************************************
mtcars
attach(mtcars) #attach是将数据框添加到R的搜索路径中
plot(mpg, disp) #polt是画图
plot(cyl, disp)
detach(mtcars) #detach是将数据框从搜索路径中移除
plot(cyl, disp) #移除后就not found了

# *********************************************
#创建列表，有4个成分:一个字符串,一个数值型向量,
#一个矩阵,一个字符型向量
g <- "Hello World"
h <- c(25, 26, 27, 28)
j <- matrix(1:10, nrow = 5)
k <- c("one", "two", "three")
mylist <- list(title = g, ages = h,j,k)
mylist
mylist[[4]] #指的是第4个成分
mylist$ages
